﻿namespace HuwmanCode

open System

[<RequireQualifiedAccess>]
module IntPtr =
    /// Convert an IntPtr to an IntPtr option
    let toOption ptr =
        ptr <> IntPtr.Zero |> Bool.toOption ptr        